home *** CD-ROM | disk | FTP | other *** search
/ Scene 96 / Scene 96 International Edition (Zyklop Software) (Disc 1) (1997).iso / intros / 64k / revolt / sources / part6.as3 < prev    next >
Text File  |  1996-01-26  |  8KB  |  362 lines
  1.  
  2.  
  3. jumps
  4. .386p
  5. CODE32 SEGMENT PARA PUBLIC USE32
  6. ASSUME cs:CODE32, ds:CODE32
  7.  
  8.         include    design.mak
  9.         include pmode.inc
  10.         include    timer.ext
  11.         include font\fontt.ext
  12.         include    rotatem.ext
  13.         EXTRN    sound    :BYTE
  14.         PUBLIC     part6
  15.         szudi    db 0
  16.  
  17. make_me_happy    PROC
  18.         mov    zdelta,359
  19.         mov    d_x, 230
  20.         mov    d_y,100
  21.         lea    edi,pixels
  22.         mov    adr_pixels,edi
  23.         lea    edi,faces
  24.         mov    adr_faces,edi
  25.         mov    number_p,number_of_points
  26.         mov    number_f,number_of_faces
  27.         call    calc_nor
  28.         ;    KOLORY
  29.         mov    ecx,number_of_faces/2
  30.          mov    edi,adr_colors
  31.     gg:    mov    byte ptr [edi],64 ;64
  32.         mov    byte ptr [edi+1],64 ;64
  33.         add    edi,2
  34.         loop    gg
  35.         mov    byte ptr [edi],64
  36.          ret
  37. make_me_happy    ENDP
  38.  
  39. draw_www:
  40.         call    reset_ramki
  41.         lea    esi,tÆo
  42.         lea    edi,screen
  43.         call    copyEkran
  44.         call    copyPoints
  45.         call    rotatety
  46.         call    _sort
  47.         call    make_lightE    
  48.         call    drawFacesVcE
  49.         lea    esi,screen
  50.         call    ekran
  51.                 ret
  52.  
  53.  
  54. part6        PROC
  55.         mov    left_margin,20
  56.         mov    fy,40*320
  57.         mov    fx,20
  58. ;LEA EDI,tÆo
  59. ;MOV EAX,0
  60. ;MOV ECX,16000
  61. ;REP STOSD
  62.  
  63.         call    make_me_happy
  64.  
  65.         mov    ecx,8
  66.         xor    ebx,ebx
  67.     iioo:    push    ecx
  68.         mov    bl,8
  69.         lea    edi,pal2
  70.         call    pal_fadein10
  71.         pop    ecx
  72.         loop    iioo
  73.  
  74.                 call    reset_ramki
  75.                 mov     d_x,390
  76.         pætla33:
  77.                 mov     eax,ramki
  78.         shl    eax,1
  79.                 sub     d_x,ax
  80.                 cmp     d_x,240
  81.                 jg      ii
  82.                 mov     d_x,240
  83.                 jmp     pætla3
  84.         ii:
  85.                 call    draw_www
  86.                 jmp     pætla33
  87.  
  88.         mov    szudi,0
  89.  
  90.     pætla3:
  91.         mov    draw_where,offset screen
  92.         call    draw_www
  93.         mov    eax,ramki
  94.         cmp    eax,2
  95.         jb    jawol
  96.         shr    eax,1
  97.         jawol:
  98.         add    angleX,eax
  99.         add    angleZ,eax
  100.         add    angleY,eax
  101.  
  102.         cmp    szudi,0
  103.         je      pik1
  104.             cmp     szudi,1
  105.                 je      pik2
  106.                 cmp     szudi,2
  107.                 je      pik3
  108.                 cmp     szudi,3
  109.                 je      pik4
  110.                 cmp     szudi,4
  111.                 je      pik5
  112.  
  113.         hhhhh:
  114.                 design2 0b30h,skokk,pætla3
  115.         skokk:  cmp     szudi,0
  116.                 jne     s111
  117.         call    siej
  118.                 mov     szudi,1
  119.         s111:   design2 0c18h,skkk2,pætla3
  120.         skkk2:  cmp     szudi,1
  121.                 jne     s121
  122.                 call    siej
  123.                 mov     szudi,2
  124.         s121:   design2 0c39h,skss,pætla3
  125.         skss:   cmp     szudi,2
  126.                 jne     s1233
  127.                 call    siej
  128.                 mov     szudi,3
  129.         s1233:    design2    0d18h,sks2,pætla3
  130.     sks2:    cmp    szudi,3
  131.         jne    sss_
  132.         call    siej
  133.         mov    szudi,4
  134.     sss_:   design2 0d3fh,ioio,pætla3
  135.         ioio:
  136.         mov    ecx,64
  137.     @ii:    push    ecx
  138.         mov    bl,1
  139.         lea    edi,bla
  140.         call    pal_fadein10
  141.         pop    ecx
  142.         loop    @ii
  143.  
  144.         lea    esi,bla
  145.         call    pal_set
  146.  
  147.         design    0e00h,hki1
  148.     hki1:    call    pal_white
  149.         lea    esi,bla
  150.         call    pal_set
  151.         design    0e02h,hki2
  152.     hki2:    call    pal_white
  153.         lea    esi,bla
  154.         call    pal_set
  155.         design    0e04h,hki3
  156.     hki3:    call    pal_white
  157.         lea    esi,bla
  158.         call    pal_set
  159.  
  160.                 design  0e13h,wyj
  161.         wyj:
  162.                 call    pal_white
  163.  
  164.         mov    ecx,64
  165.         xor    ebx,ebx
  166.     ii2o:    push    ecx
  167.         mov    bl,1
  168.         lea    edi,bla
  169.         call    pal_fadein10
  170.         pop    ecx
  171.         loop    ii2o
  172.  
  173.         design    0e20h,mamaa
  174.     mamaa:
  175.  
  176.         ret
  177. part6    ENDP
  178.  
  179. pik1:
  180.         mov    fy,40*320
  181.         mov    fx,20
  182.         mov    ecx,6
  183.         lea    esi,jopsa
  184.     @io0:    push    ecx esi
  185.         mov    ebp,dword ptr [esi] ;do designu
  186.         design2 bp,nuy,nty
  187.     nuy:    mov    ecx,[esi+4]
  188.         mov    eax,[esi+8]
  189.         mov    esi,eax
  190.         mov    draw_where,offset tÆo
  191.         call    draw_string
  192.     nty:    pop    esi ecx
  193.         add    esi,12
  194.         loop    @io0
  195.                 jmp     hhhhh
  196.  
  197. pik2:
  198.         mov    fy,40*320
  199.         mov    fx,20
  200.         mov    ecx,7
  201.         lea    esi,jops2
  202.     @i20:    push    ecx esi
  203.         mov    ebp,dword ptr [esi] ;do designu
  204.         design2 bp,nuy22,nty22
  205.     nuy22:    mov    ecx,[esi+4]
  206.         mov    eax,[esi+8]
  207.         mov    esi,eax
  208.         mov    draw_where,offset tÆo
  209.         call    draw_string
  210.     nty22:    pop    esi ecx
  211.         add    esi,12
  212.         loop    @i20
  213.                 jmp     hhhhh
  214.  
  215. pik3:
  216.         mov    fy,40*320
  217.         mov    fx,20
  218.         mov    ecx,8
  219.         lea    esi,jops3
  220.     @i22:    push    ecx esi
  221.         mov    ebp,dword ptr [esi] ;do designu
  222.         design2 bp,nuy122,nty122
  223.     nuy122:    mov    ecx,[esi+4]
  224.         mov    eax,[esi+8]
  225.         mov    esi,eax
  226.         mov    draw_where,offset tÆo
  227.         call    draw_string
  228.     nty122:    pop    esi ecx
  229.         add    esi,12
  230.         loop    @i22
  231.                 jmp     hhhhh
  232. pik4:
  233.         mov    fy,40*320
  234.         mov    fx,20
  235.         mov    ecx,8
  236.         lea    esi,jops4
  237.     @i24:    push    ecx esi
  238.         mov    ebp,dword ptr [esi] ;do designu
  239.         design2 bp,nuy124,nty124
  240.     nuy124:    mov    ecx,[esi+4]
  241.         mov    eax,[esi+8]
  242.         mov    esi,eax
  243.         mov    draw_where,offset tÆo
  244.         call    draw_string
  245.     nty124:    pop    esi ecx
  246.         add    esi,12
  247.         loop    @i24
  248.                 jmp     hhhhh
  249. pik5:
  250.         mov    fy,40*320
  251.         mov    fx,20
  252.         mov    ecx,8
  253.         lea    esi,jops5
  254.     @i25:    push    ecx esi
  255.         mov    ebp,dword ptr [esi] ;do designu
  256.         design2 bp,nuy125,nty125
  257.     nuy125:    mov    ecx,[esi+4]
  258.         mov    eax,[esi+8]
  259.         mov    esi,eax
  260.         mov    draw_where,offset tÆo
  261.         call    draw_string
  262.     nty125:    pop    esi ecx
  263.         add    esi,12
  264.         loop    @i25
  265.                 jmp     hhhhh
  266.  
  267.  
  268.     jopsa:    dd 0b10h,36,offset n1
  269.         dd 0b14h,18,offset n3
  270.         dd 0b18h,18,offset n4
  271.         dd 0b1ch,18,offset n5
  272.         dd 0b20h,36,offset n6
  273.         dd 0b24h,18,offset n8
  274.     jops2:    dd 0b34h,20,offset q1
  275.         dd 0b38h,18,offset q3
  276.         dd 0b3ch,18,offset q4 ;b
  277.         dd 0b3eh,18,offset q5 ;c
  278.         dd 0b3fh,18,offset q6
  279.         dd 0c00h,18,offset q7
  280.         dd 0c04h,18,offset q8
  281.         jops3:  dd 0c1ch,18,offset z1
  282.                 dd 0c20h,18,offset z2
  283.                 dd 0c24h,18,offset z3
  284.                 dd 0c28h,18,offset z4
  285.                 dd 0c2ch,18,offset z5
  286.                 dd 0c30h,18,offset z6
  287.                 dd 0c31h,18,offset z7
  288.                 dd 0c33h,18,offset z8
  289.         jops4:  dd 0c3bh,18,offset a1
  290.                 dd 0c3ch,18,offset a2
  291.                 dd 0c3eh,18,offset a3
  292.                 dd 0c3fh,18,offset a4
  293.                 dd 0d00h,18,offset a5
  294.                 dd 0d04h,18,offset a6
  295.                 dd 0d08h,18,offset a7
  296.                 dd 0d0ch,18,offset a8
  297.         jops5:  dd 0d1ch,18,offset i1
  298.                 dd 0d20h,18,offset i2
  299.                 dd 0d24h,18,offset i3
  300.                 dd 0d28h,18,offset i4
  301.                 dd 0d2ch,18,offset i5
  302.                 dd 0d30h,18,offset i6
  303.                 dd 0d31h,18,offset i7
  304.                 dd 0d33h,18,offset i8
  305.  
  306.         i1      db 'THANX:   ZIEL    $'
  307.         i2      db '         TRAN    $'
  308.         i3      db '         FRONTMAN$'
  309.         i4      db 'SZUDI AND BRACH  $'
  310.         i5      db 'WANT SENT FUCKING$'
  311.         i6      db 'TO ALL SKIN-HEADS$'
  312.         i7      db 'ON THE GLOBE !!! $'
  313.         i8      db '              BYE$'
  314.  
  315.         a1      db '  TECHNOMANCER   $'
  316.         a2      db '   PARADISE      $'
  317.         a3      db '     AND         $'
  318.         a4      db ' MIST  QUESTOR   $'
  319.         a5      db 'TDA  COMPLEX  FC $'
  320.         a6      db 'NOOON  VALHALLA  $'
  321.         a7      db '  FASCINATION    $'
  322.         a8      db '  RESISTANCE     $'
  323.  
  324.         z1      db ' SHOCKER  LOGRUS $'
  325.         z2      db ' DARKMOON     TE $'
  326.         z3      db 'PC MUZGI  FNOOL T$'
  327.         z4      db ' GUARDIANS  RBL  $'
  328.         z5      db ' BYTE LAND   DL  $'
  329.         z6      db '  THE STRAMERS   $'
  330.         z7      db 'NON TOXIC PROXIMA$'
  331.         z8      db ' HL   HOUSE SOFT $'
  332.  
  333.     q1    db 'TIME FOR GREETINGS$$'
  334.     q3    DB '  ADRAR  DESIGN  $'
  335.     q4    DB ' HPZ CAMMORA STC $'
  336.     q5    DB '  PULSE  MOTION  $'
  337.     q6    DB ' EXTRAVAGANZA  WI$'
  338.     q7    DB ' TECHNOLOGY COLOR$'
  339.     q8    DB ' NECROBIOSIS  TG $'
  340.  
  341.     n1    db '                 $'
  342.         db 'YOU WATCHED LAST $'
  343.     n3    db ' !!! AMNESTY !!! $'
  344.     n4    db '  PRESENTATION   $'
  345.     n5    db ' CALLED !REVOLT! $'
  346.     n6    db '                 $'
  347.         db 'IT  WAS  REALASED$'
  348.     n8     db 'AT GP II PARTY !!$'
  349.  
  350.  
  351.     pal2:
  352.         include    part6.pal
  353.     bla    db 768 DUP (0)
  354.  
  355.         include objects\ast1
  356.         include    revolt.ext
  357.  
  358. CODE32 ENDS
  359. END
  360.  
  361.  
  362.